WEMain.mesa 2-Sep-78 15:32:14 Page 1 



--File: WEMain.mesa 
--Edited by: 

Barbara July 18. 1978 9:49 AM 

Sandman May 4, 1978 9:32 AM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [BytesPerPage] , 

DebugMiscDefs: FROM "debugmiscdef s" USING [DebugAbort, DebugProceed] , 

InlineDefs: FROM "inlinedefs" USING [BITOR, BITXOR], 

lODefs: FROM "iodefs" USING [BS, CR, DEL, ESC], 

KeyDefs: FROM "keydefs" USING [Keys, Mouse], 

OsStaticDefs: FROM "osstaticdef s" USING [OsStatics], 

ProcessDefs: FROM "processdef s" USING [Aborted, Yield], 

RectangleDefs: FROM "rectangledef s" USING [ 

ClearBoxInRectangle, CursorToRecCoords, GrayArray, GrayPtr, Teftmargin, 

Rptr, xCoord, yCoord], 
SegmentDefs: FROM "segmentdef s" USING [FileNameError, InvalidFP], 
StreamDefs: FROM "streamdefs" USING [ 

DisplayHandle, GetCurrentKey , Getlndex, KeyboardHandle, OpenKeyStream, 

StreamError, Streamlndex] , 
WindExDefs: FROM "windexdefs" USING [ 

AMouseButton, CursorArray, cursormap, CursorType, JumpStrip, KeySet, 

LMult, maxscratch, NuHIndex, ReadEditChar , Shorten, slop, WEDataHandle, 

xcursorloc, ycursorloc], 
WindowDefs: FROM "windowdefs" USING [ 

Al terWindowType, BlinkCursor, FindDisplayWindow, GetCurrentDisplayWindow, 

GetSelection, Selection, SetCurrentDisplayWindow, SetFileForWindow, 

WindowHandle]; 

DEFINITIONS FROM WindExDefs; 

WEMain: PROGRAM [WEState: WEDataHandle] 

IMPORTS ProcessDefs, SegmentDefs, StreamDefs, RectangleDefs, WindowDefs, 

DebugMiscDefs, WindExDefs 
EXPORTS WindExDefs 
SHARES WindExDefs, StreamDefs = 
BEGIN 

-- common types 

WindowHandle: TYPE = WindowDefs .WindowHandle; 
DisplayHandle: TYPE « StreamDefs .DisplayHandle; 
KeyboardHandle: TYPE = StreamDefs. KeyboardHandle; 
Streamlndex: TYPE = StreamDefs .Streamlndex; 
Selection: TYPE = WindowDefs .Selection; 
Rptr: TYPE = RectangleDefs . Rptr ; 
xCoord: TYPE = RectangleDefs . xCoord; 
yCoord: TYPE = RectangleDefs .yCoord; 

-- Window Executive Main Control Routine 

WindowExecutive: PUBLIC PROCEDURE « 
BEGIN OPEN DebugMiscDefs; 

timer: POINTER TO INTEGER ^ LOOPHOLE[430B] ; 
blinktime: INTEGER <- timert+8; 
DO -- forever 
DoWork[ 1 

DebugProceed => RESUME; 

ProcessDefs. Aborted, DebugAbort, StreamDefs .StreamError «> CONTINUE]; 
IF blinktime-timert ~IN[0..13] THEN 

BEGIN [] «- WindowDefs. BlinkCursor[]; blinktime <- timert+13 END; 
Pro cess Defs.Yield[]; 
ENDLOOP; 
END; 

DoWork: PROCEDURE «* 
BEGIN OPEN WEState; 
~- Declare Locals 
X, y,i: INTEGER; 
k: KeySet; 

inJumpStrip: BOOLEAN ♦- FALSE; 
mousewindow: WindowHandle; 
buttons: AMouseButton; 
cw: WindowHandle; 
currentks : KeyboardHandle; 
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currentks ^ StreamDef s .GetCurrentKey[] ; 

cw ^ WindowD8Fs.GetCurr0ntDisplayWindow[]; 

-- check if need to service KeyStream 

IF cw.ks ^ defauUks AND NOT cw.ks.endof [cw.ks] THEN 

FOR i IN [0. .maxscratch) DO ENABLE StreamDef s .StreamError ■> EXIT; 
IF scratchfiles[i] « cw.file THEN 
BEGIN 

ReadEditChar[ cw.ks .get[cw.ks], cw]; 
EXIT; 
END; 
ENDLOOP; 
-- check if some part of cursor is in jump bar 

[x, y] ^ CursorToRectang1eCoords[cw. rectangle , xcursorloct, ycursorloct]; 
inJumpStrip «- x+slop > AND x <= JumpStrip AND y+slop > AND 

y-slop <« cw. rectangle. ch; 
SetJumpStripe[cw, inJumpStrip]; 
-- check mouse buttons 
buttons ♦- GetMouseButton[]; 

-- look at the mouse and flip from one to the other 
cw ^ WindowDefs.GetCurrentDisplayWindow[] ; 
[mousewindow, x, y] <- 

WindowDef s . FindDisplayWindow[xcursorloct+cxa, ycursorloct+cya]; 
IF '-inJumpStrip AND cw # mousewindow AND mousewindow ^ NIL AND 
buttons ^ None THEN 
BEGIN 

WindowDef s .SetCurrentDisplayWindow[mousewindow ! 
SegmentDef s. Inval idFP => 
BEGIN 

WindowDef s .SetFileForWindow[mousewindow, mousewindow, name I 
SegmentDefs. FileNameError «> 
BEGIN 

WindowDef s .AlterWindowType[mousewindow, mousewindow. type, NIL]; 
CONTINUE; 
END]; 
RETRY; 
END]; 
StreamDef s. Open KeyStream[mousewindow.ks]; 
END 
ELSE IF buttons = None THEN 
BEGIN OPEN OsStaticDefs; 

IF useKeyset AND OsStatics . Al toVersion .engineeringnumber # 4 --DO 
AND (k ^ GetKeySet[]) ff THEN 
SELECT k FROM 

IB => StuffSel[cw]; 
2B => PutChar[IODefs.CR]; 

3B => BEGIN PutChar[IODefs.CR]; Stuf fSel [cw] ; END; 
4B => PutChar[IODefs.ESC]; 
lOB => PutChar[IODefs.DEL]; 
20B => PutChar[IODefs.BS]; 
ENDCASE 
ELSE BEGIN 

IF OsStatics .Al toVersion .engineeringnumber = 4 THEN useKeyset ♦- FALSE; 
IF FL4Down[] THEN 

BEGIN StuffSel[cw]; WHILE FL4Down[] DO NULL ENDLOOP; END; 
END; 
END 
ELSE 
BEGIN 

THROUGH [0..700) DO NULL ENDLOOP; -- Debounce Mouse 

ButtonProcArray[GetMouseButton[]][cw, xcursorloct+cxa, ycursorloct+cya]; 
END; 
END; 

SetJumpStripe: PUBLIC PROCFDURE[w: WindowHandle , flag: BOOLEAN] = 
BEGIN OPEN RectangleDefs, WEState; 
-- Declare Locals 
r: Rptr = w. rectangle; 
yl, y2: yCoord; 

bytepos, wendpos, eof: LONG INTEGER; 
longZero: LONG INTEGER ^ 0; 
longOne: LONG INTEGER *- 1; 

barheight: CARDINAL « r . ch-def aul tl ineheight-2; 
barwidth: INTEGER « lef tmargin-1 ; 
current, wend index: Streamlndex; 

gray: GrayArray ^ [125252B, 52525B, 125252B, 52525B]; 
grayarray: GrayPtr « @gray; 
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zeros: GrayArray <- [0,0,0,0]; 
zeroarray: GrayPtr ■ Qzeros; 
-- check if visible 
IF (w. rectangle. visible - FALSE) OR (w.file " NIL) THEN 

RETURN; 
-- now set or reset state 
IF flag THEN 

BEGIN 

IF currentcursor » botharrow THEN RETURN; 

Se tCu r so r[ both arrow]; 

ButtonProcArray <- Scrol IProcArray ; 

ClearBoxInRectangl e[r, 1, barwidth, def aul tl ineheight+1, barheight, grayarray]; 

current ♦- IF w.tempindex « Nulllndex THEN w.fileindex ELSE w. tempindex; 

-- compute position in file and paint(reset) position 

bytepos ^ IF current. byte«177777B THEN longZero 

ELSE LMul t[current .page, Al toDef s .BytesPerPage] + current .byte; 

wendindex ^ StreamDefs .Getlndex[w.f ile]; 

wendpos -^ LMul t[wendindex. page, Al toDefs .BytesPerPage] + wendindex. byte; 

eof ♦- IF w.eofindex.byte = 177777B THEN longOne 

ELSE LMul t[w. eof index. page , Al toDefs .BytesPerPage] + w. eof index. byte; 

IF wendpos > eof THEN eof +- wendpos; 

yl <r Shorten[{bytepos*barheight)/eof ]; 

y2 <- Shorten[(wendpos*barheight)/eof ]; 

y2 ^- MAX[y2-yl. 2]; 

ClearBoxInRectangl e[ 

r, 3, barwidth-5, yl+def aul tl ineheight+1 , y2, zeroarray]; 

END 
ELSE 

BEGIN 

Se tCur so r[textpo inter]; 

ButtonProcArray *- TextProcArray ; 

ClearBoxInRectangle[ 

r, 1, barwidth, defaultl ineheight+1 , barheight, zeroarray] 

END; 
END; 

GetMouseButton: PUBLIC PROCEDURE RETURNS[AMouseButton]« 
BEGIN 

RETURN[KeyDefs. Mouse. buttons]; 
END; 

GetKeySet: PUBLIC PROCEDURE RETURNS [KeySet]« 
BEGIN OPEN InlineDefs; 
n, keyvalues: KeySet ^ 0; 
DO 

n «- BITXOR[KeyDefs. Mouse. keyset. 378]; 
IF n = THEN 
BEGIN 

THROUGH [0..200) DO NULL ENDLOOP; 
n ^ BITXOR[KeyDefs. Mouse. keyset. 378]; 
END; 
IF n = THEN RETURN[keyval ues] ELSE keyvalues ♦- BITOR[keyvalues , n]; 
ENDLOOP; 
END; 

FL4Down: PROCEDURE RETURNS [BOOLEAN] =» 
BEGIN OPEN KeyDefs; 
RETURN[KeyDefs.Keys.FL4 = down]; 
END; 

PutChar: PROCEDURE [c: CHARACTER]" 
BEGIN OPEN WEState; 
def aul tks .putback[defaul tks , c]; 
END; 

StuffSel: PROCEDURE [w: WindowHandle]» 
BEGIN OPEN WEState; 

s: STRING ^ WindowDef s .GetSelection[w] ; 
i: CARDINAL; 

FOR i DECREASING IN [0 . . s . 1 ength) DO def aul tks .putback[def aul tks , s[i]]: ENDLOOP; 
END; 

CursorToRectangleCoords: PUBLIC PROCEDURE [rectangle: Rptr. x: xCoord. y: yCoord] 
RETUHNS[xCoord. yCoord] « 
BEGIN OPEN WEState: 
~- refinements for sensitive points of each cursor 
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X <- X + cxa; 

y ♦- y + cya; 

-- convert cursor coordinates to window coordinates 

[x, y] <- Rectang1eDefs.CursorToRecCoords[rectang1e, x, y]; 

RETURN[x. y]: 

END; 

NullProc: PUBLIC PROCEDURE[w: WindowHandle, x: xCoord. y: yCoord] - 
BEGIN 
RETURN; 
END; 

Cursors: ARRAY CursorType OF CursorArray » [ 
-- textpointer 

[lOOOOOB, 140000B. 160000B, 170000B, 174000B, 1760008, 177000B, 170000B, 1540008, 
114000B, 60008. 6000B, 30008, 30008, 14006,14008], 

-- arrow 

[408, 608, 708, 748, 177776B, 1777778. 1777768. 74B, 70B, 60B, 408. 0, 0, 0, 0, 0], 

-- bullseye 

[37008, 7740B, 140608, 300308. 600148, 1400068, 141606B, 1416068. 141606B, 
1400068. 60014B, 300308, 140608, 7740B, 37008. OB], 

-- leftbutton 

[1777408, 1000408, 1352408. 1352408. 135240B, 135240B, 135240B, 1000408, 1000408. 
100040B. 1000408. 1000408. 1000408. 100040B. 100040B. 1777408]. 

-- uparrow 

[600B. 17008, 77608, 377768, 1777778, 7760B. 7760B. 77608, 77608. 77608. 7760B. 77608. 
7760B. 77608. 7760B. 77608]. 

-- downarrow 

[7760B. 7760B, 77608.77608. 7760B. 77608,77608, 77608, 77608,77608. 7760B . 1777778. 
377768. 7760B, 1700B. 600B]. 

-- botharrow 

[6008, 17008, 77608. 377768. 1777778. 77608, 7760B. 7760B. 77608. 77608. 7760B, 
1777778. 37776B. 77608, 17008. 6008]. 

-- hourglass 

[177777B, lOOOOlB. 400028, 340348. 17170B. 76608. 3740B, 17008, llOOB, 24408. 4220B. 
106108, 217048. 477628. 1777778. 1777778], 

"- norm 

[37774B, 37774B. 34034B, 340348. 34034B. 34034B. 34034B. 34034B, 340348. 34034B. 
340348, 340348, 340348, 340348. 377748, 37774B]. 

-- menu 

[10008, 3001B. 70038. 36007B, 177776B, 177776B, 36007B. 7003B, 
3001B. lOOOB, OB, OB. 08. OB. 08. OB]]; 

SetCursor: PUBLIC PROCEDURE [type: CursorType] » 
BEGIN OPEN WEState; 

XAdjust: PACKED ARRAY CursorType OF [0..16) « [0.15,7,0,8,8,0,0,8.0]; 
YAdjust: PACKED ARRAY CursorType OF [0..16) « [0.8,7,0.0,15,0,0,8.5]; 
Cursor: POINTER TO CursorArray = cursormap; 
currentcursor ♦- type; 
cya *- YAdjust[type]; 
cxa <- XAd just[type]; 
Cursort 4- Cursors[type] ; 
END; 

END. of WEControl 



